BBS in a Box 12

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Prog / N-P / Open Prolog 1.02.sit / Open Prolog 1.02 / External Predicates… / Sources / OpenPrologMultipleChoice.p < prev next >
MacBinary | 1993-11-30 | 6.3 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Tue Nov 30 14:50:37 1993, modified Tue Nov 30 14:50:37 1993, creator 'MPS ', type ASCII, 5762 bytes "OpenPrologMultipleChoice.p" , at 0x1702 354 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 1a 4f 70 65 6e 50 72 | 6f 6c 6f 67 4d 75 6c 74 |..OpenPr|ologMult|
|00000010| 69 70 6c 65 43 68 6f 69 | 63 65 2e 70 00 00 00 00 |ipleChoi|ce.p....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 16 82 00 | 00 01 62 a9 21 54 8d a9 |........|..b.!T..|
|00000060| 21 54 8d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |!T......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 84 a3 00 00 |........|........|
|00000080| 7b 24 44 2b 7d 20 7b 20 | 4d 61 63 73 42 75 67 20 |{$D+} { |MacsBug |
|00000090| 73 79 6d 62 6f 6c 73 20 | 6f 6e 20 7d 0d 7b 24 52 |symbols |on }.{$R|
|000000a0| 2b 7d 20 7b 20 4e 6f 20 | 72 61 6e 67 65 20 63 68 |+} { No |range ch|
|000000b0| 65 63 6b 69 6e 67 20 7d | 0d 0d 55 4e 49 54 20 4f |ecking }|..UNIT O|
|000000c0| 70 65 6e 50 72 6f 6c 6f | 67 44 69 61 6c 6f 67 73 |penProlo|gDialogs|
|000000d0| 3b 0d 0d 20 20 49 4e 54 | 45 52 46 41 43 45 0d 0d |;..  INT|ERFACE..|
|000000e0| 20 20 20 20 55 53 45 53 | 20 6d 65 6d 74 79 70 65 |    USES| memtype|
|000000f0| 73 2c 20 71 75 69 63 6b | 64 72 61 77 2c 20 6f 73 |s, quick|draw, os|
|00000100| 69 6e 74 66 2c 20 74 6f | 6f 6c 69 6e 74 66 2c 20 |intf, to|olintf, |
|00000110| 73 74 61 6e 64 61 72 64 | 46 69 6c 65 2c 20 54 65 |standard|File, Te|
|00000120| 78 74 55 74 69 6c 73 2c | 0d 20 20 20 20 20 20 20 |xtUtils,|.       |
|00000130| 20 20 70 61 63 6b 69 6e | 74 66 2c 20 70 72 6c 78 |  packin|tf, prlx|
|00000140| 64 65 66 69 6e 69 74 69 | 6f 6e 73 2c 20 70 72 6c |definiti|ons, prl|
|00000150| 78 4c 69 62 72 61 72 69 | 65 73 2c 20 74 72 61 70 |xLibrari|es, trap|
|00000160| 73 2c 20 67 65 73 74 61 | 6c 74 45 71 75 3b 0d 0d |s, gesta|ltEqu;..|
|00000170| 20 20 20 20 50 52 4f 43 | 45 44 55 52 45 20 65 6e |    PROC|EDURE en|
|00000180| 74 72 79 70 6f 69 6e 74 | 28 70 6c 69 73 74 3a 20 |trypoint|(plist: |
|00000190| 70 72 6c 78 70 74 72 29 | 3b 0d 0d 20 20 49 4d 50 |prlxptr)|;..  IMP|
|000001a0| 4c 45 4d 45 4e 54 41 54 | 49 4f 4e 0d 0d 20 20 20 |LEMENTAT|ION..   |
|000001b0| 20 20 20 20 20 43 4f 4e | 53 54 0d 20 20 20 20 20 |     CON|ST.     |
|000001c0| 20 6b 4d 43 42 61 73 65 | 20 3d 20 31 35 34 3b 0d | kMCBase| = 154;.|
|000001d0| 20 20 20 20 20 20 6b 4d | 43 44 4c 4f 47 20 3d 20 |      kM|CDLOG = |
|000001e0| 6b 4d 43 42 61 73 65 3b | 0d 20 20 20 20 20 20 6b |kMCBase;|.      k|
|000001f0| 4d 43 44 49 54 4c 20 3d | 20 6b 4d 43 42 61 73 65 |MCDITL =| kMCBase|
|00000200| 3b 0d 0d 20 20 20 20 50 | 52 4f 43 45 44 55 52 45 |;..    P|ROCEDURE|
|00000210| 20 6d 61 69 6e 28 70 6c | 69 73 74 3a 20 70 72 6c | main(pl|ist: prl|
|00000220| 78 70 74 72 29 3b 0d 20 | 20 20 20 20 20 46 4f 52 |xptr);. |     FOR|
|00000230| 57 41 52 44 3b 0d 0d 20 | 20 20 20 50 52 4f 43 45 |WARD;.. |   PROCE|
|00000240| 44 55 52 45 20 65 6e 74 | 72 79 70 6f 69 6e 74 28 |DURE ent|rypoint(|
|00000250| 70 6c 69 73 74 3a 20 70 | 72 6c 78 70 74 72 29 3b |plist: p|rlxptr);|
|00000260| 0d 0d 20 20 20 20 20 20 | 42 45 47 49 4e 0d 20 20 |..      |BEGIN.  |
|00000270| 20 20 20 20 20 20 6d 61 | 69 6e 28 70 6c 69 73 74 |      ma|in(plist|
|00000280| 29 3b 0d 20 20 20 20 20 | 20 45 4e 44 3b 0d 0d 20 |);.     | END;.. |
|00000290| 20 20 20 50 52 4f 43 45 | 44 55 52 45 20 6d 61 69 |   PROCE|DURE mai|
|000002a0| 6e 3b 0d 0d 20 20 20 20 | 20 20 56 41 52 0d 20 20 |n;..    |  VAR.  |
|000002b0| 20 20 20 20 20 20 74 68 | 65 4f 6c 64 50 6f 72 74 |      th|eOldPort|
|000002c0| 3a 20 67 72 61 66 50 74 | 72 3b 0d 20 20 20 20 20 |: grafPt|r;.     |
|000002d0| 20 20 20 74 68 65 48 61 | 6e 64 6c 65 3a 20 68 61 |   theHa|ndle: ha|
|000002e0| 6e 64 6c 65 3b 0d 20 20 | 20 20 20 20 20 20 69 2c |ndle;.  |      i,|
|000002f0| 20 6a 3a 20 69 6e 74 65 | 67 65 72 3b 0d 20 20 20 | j: inte|ger;.   |
|00000300| 20 20 20 20 20 74 68 65 | 52 65 63 74 3a 20 72 65 |     the|Rect: re|
|00000310| 63 74 3b 0d 0d 20 20 20 | 20 20 20 50 52 4f 43 45 |ct;..   |   PROCE|
|00000320| 44 55 52 45 20 63 68 65 | 63 6b 4f 53 45 72 72 28 |DURE che|ckOSErr(|
|00000330| 68 6f 73 74 45 72 72 6f | 72 43 6f 64 65 3a 20 6f |hostErro|rCode: o|
|00000340| 73 45 72 72 3b 0d 20 20 | 20 20 20 20 20 20 20 20 |sErr;.  |        |
|00000350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000360| 20 65 72 72 6f 72 4b 69 | 6e 64 2c 20 61 72 67 75 | errorKi|nd, argu|
|00000370| 6d 65 6e 74 49 6e 64 65 | 78 3a 20 6c 6f 6e 67 69 |mentInde|x: longi|
|00000380| 6e 74 3b 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |nt;.    |        |
|00000390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 73 |        |       s|
|000003a0| 3a 20 53 74 72 32 35 35 | 29 3b 0d 0d 20 20 20 20 |: Str255|);..    |
|000003b0| 20 20 20 20 42 45 47 49 | 4e 0d 20 20 20 20 20 20 |    BEGI|N.      |
|000003c0| 20 20 20 20 49 46 20 68 | 6f 73 74 45 72 72 6f 72 |    IF h|ostError|
|000003d0| 43 6f 64 65 20 3c 3e 20 | 6e 6f 45 72 72 20 54 48 |Code <> |noErr TH|
|000003e0| 45 4e 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 42 |EN.     |       B|
|000003f0| 45 47 49 4e 0d 20 20 20 | 20 20 20 20 20 20 20 20 |EGIN.   |        |
|00000400| 20 73 69 67 6e 61 6c 45 | 72 72 6f 72 28 65 72 72 | signalE|rror(err|
|00000410| 6f 72 4b 69 6e 64 2c 20 | 61 72 67 75 6d 65 6e 74 |orKind, |argument|
|00000420| 49 6e 64 65 78 2c 20 68 | 6f 73 74 45 72 72 6f 72 |Index, h|ostError|
|00000430| 43 6f 64 65 2c 20 73 2c | 20 70 6c 69 73 74 29 3b |Code, s,| plist);|
|00000440| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 65 78 69 |.       |     exi|
|00000450| 74 28 6d 61 69 6e 29 3b | 0d 20 20 20 20 20 20 20 |t(main);|.       |
|00000460| 20 20 20 20 20 45 4e 44 | 3b 0d 20 20 20 20 20 20 |     END|;.      |
|00000470| 20 20 45 4e 44 3b 0d 0d | 20 20 20 20 20 20 42 45 |  END;..|      BE|
|00000480| 47 49 4e 0d 20 20 20 20 | 20 20 20 20 57 49 54 48 |GIN.    |    WITH|
|00000490| 20 70 6c 69 73 74 5e 20 | 44 4f 0d 20 20 20 20 20 | plist^ |DO.     |
|000004a0| 20 20 20 20 20 42 45 47 | 49 4e 0d 20 20 20 20 20 |     BEG|IN.     |
|000004b0| 20 20 20 20 20 6f 75 74 | 63 6f 6d 65 20 3a 3d 20 |     out|come := |
|000004c0| 6e 6f 45 72 72 6f 72 53 | 75 63 63 65 65 64 3b 0d |noErrorS|ucceed;.|
|000004d0| 20 20 20 20 20 20 20 20 | 20 20 64 65 74 65 72 6d |        |  determ|
|000004e0| 69 6e 61 74 65 20 3a 3d | 20 74 72 75 65 3b 0d 20 |inate :=| true;. |
|000004f0| 20 20 20 20 20 20 20 20 | 20 43 41 53 45 20 72 65 |        | CASE re|
|00000500| 71 75 65 73 74 20 4f 46 | 0d 20 20 20 20 20 20 20 |quest OF|.       |
|00000510| 20 20 20 20 20 67 65 74 | 50 52 4c 58 49 6e 66 6f |     get|PRLXInfo|
|00000520| 3a 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:.      |        |
|00000530| 42 45 47 49 4e 0d 20 20 | 20 20 20 20 20 20 20 20 |BEGIN.  |        |
|00000540| 20 20 20 20 64 61 74 61 | 5b 31 5d 20 3a 3d 20 31 |    data|[1] := 1|
|00000550| 3b 20 7b 6e 75 6d 62 65 | 72 20 6f 66 20 70 72 65 |; {numbe|r of pre|
|00000560| 64 69 63 61 74 65 73 20 | 64 65 66 69 6e 65 64 7d |dicates |defined}|
|00000570| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 64 |.       |       d|
|00000580| 61 74 61 5b 32 5d 20 3a | 3d 20 65 76 65 6e 74 73 |ata[2] :|= events|
|00000590| 56 65 72 73 69 6f 6e 3b | 0d 20 20 20 20 20 20 20 |Version;|.       |
|000005a0| 20 20 20 20 20 20 20 64 | 61 74 61 5b 33 5d 20 3a |       d|ata[3] :|
|000005b0| 3d 20 30 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |= 0.    |        |
|000005c0| 20 20 45 4e 44 3b 0d 20 | 20 20 20 20 20 20 20 20 |  END;. |        |
|000005d0| 20 20 20 69 6e 69 74 69 | 61 6c 69 73 65 70 72 65 |   initi|alisepre|
|000005e0| 64 69 63 61 74 65 3a 0d | 20 20 20 20 20 20 20 20 |dicate:.|        |
|000005f0| 20 20 20 20 20 20 43 41 | 53 45 20 69 64 20 4f 46 |      CA|SE id OF|
|00000600| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000610| 20 31 3a 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 | 1:.    |        |
|00000620| 20 20 20 20 20 20 42 45 | 47 49 4e 0d 20 20 20 20 |      BE|GIN.    |
|00000630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 73 20 |        |      s |
|00000640| 3a 3d 20 27 73 79 73 74 | 65 6d 24 6d 75 6c 74 69 |:= 'syst|em$multi|
|00000650| 70 6c 65 24 63 68 6f 69 | 63 65 27 3b 20 7b 6e 61 |ple$choi|ce'; {na|
|00000660| 6d 65 7d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |me}.    |        |
|00000670| 20 20 20 20 20 20 64 61 | 74 61 5b 31 5d 20 3a 3d |      da|ta[1] :=|
|00000680| 20 31 35 3b 0d 7b 4e 61 | 6d 65 2c 50 72 6f 6d 70 | 15;.{Na|me,Promp|
|00000690| 74 2c 4f 4b 74 65 78 74 | 2c 43 61 6e 63 65 6c 54 |t,OKtext|,CancelT|
|000006a0| 65 78 74 2c 52 65 70 6c | 79 54 65 78 74 2c 54 65 |ext,Repl|yText,Te|
|000006b0| 78 74 31 2c 52 65 70 6c | 79 31 2c 54 65 78 74 32 |xt1,Repl|y1,Text2|
|000006c0| 2c 52 65 70 6c 79 32 2c | 54 65 78 74 33 2c 52 65 |,Reply2,|Text3,Re|
|000006d0| 70 6c 79 33 0d 54 65 78 | 74 34 2c 52 65 70 6c 79 |ply3.Tex|t4,Reply|
|000006e0| 34 2c 54 65 78 74 35 2c | 52 65 70 6c 79 35 7d 0d |4,Text5,|Reply5}.|
|000006f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000700| 20 20 45 4e 44 3b 0d 20 | 20 20 20 20 20 20 20 20 |  END;. |        |
|00000710| 20 20 20 20 20 20 20 4f | 54 48 45 52 57 49 53 45 |       O|THERWISE|
|00000720| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000730| 20 20 20 73 69 67 6e 61 | 6c 45 72 72 6f 72 28 69 |   signa|lError(i|
|00000740| 6d 70 6c 65 6d 65 6e 74 | 61 74 69 6f 6e 45 72 72 |mplement|ationErr|
|00000750| 6f 72 2c 20 2d 20 31 2c | 20 30 2c 0d 20 20 20 20 |or, - 1,| 0,.    |
|00000760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000770| 20 20 20 20 20 20 20 20 | 20 20 27 70 72 65 64 69 |        |  'predi|
|00000780| 63 61 74 65 20 69 6e 64 | 65 78 20 6f 75 74 20 6f |cate ind|ex out o|
|00000790| 66 20 72 61 6e 67 65 20 | 61 74 20 69 6e 69 74 69 |f range |at initi|
|000007a0| 61 6c 69 73 65 27 2c 0d | 20 20 20 20 20 20 20 20 |alise',.|        |
|000007b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007c0| 20 20 20 20 20 20 70 6c | 69 73 74 29 3b 0d 20 20 |      pl|ist);.  |
|000007d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 4e 44 3b |        |    END;|
|000007e0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 63 61 6c |.       |     cal|
|000007f0| 6c 70 72 65 64 69 63 61 | 74 65 3a 0d 20 20 20 20 |lpredica|te:.    |
|00000800| 20 20 20 20 20 20 20 20 | 20 20 43 41 53 45 20 69 |        |  CASE i|
|00000810| 64 20 4f 46 0d 20 20 20 | 20 20 20 20 20 20 20 20 |d OF.   |        |
|00000820| 20 20 20 20 20 31 3a 0d | 20 20 20 20 20 20 20 20 |     1:.|        |
|00000830| 20 20 20 20 20 20 20 20 | 20 20 57 49 54 48 20 70 |        |  WITH p|
|00000840| 6c 69 73 74 5e 20 44 4f | 0d 20 20 20 20 20 20 20 |list^ DO|.       |
|00000850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 42 45 47 |        |     BEG|
|00000860| 49 4e 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |IN.     |        |
|00000870| 20 20 20 20 20 20 20 64 | 69 61 6c 6f 67 50 74 72 |       d|ialogPtr|
|00000880| 28 64 61 74 61 5b 32 5d | 29 20 3a 3d 20 67 65 74 |(data[2]|) := get|
|00000890| 4e 65 77 44 69 61 6c 6f | 67 28 6b 4d 43 44 4c 4f |NewDialo|g(kMCDLO|
|000008a0| 47 2c 20 4e 49 4c 2c 0d | 20 20 20 20 20 20 20 20 |G, NIL,.|        |
|000008b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000008d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 77 |        |       w|
|000008e0| 69 6e 64 6f 77 50 74 72 | 28 20 2d 20 31 29 29 3b |indowPtr|( - 1));|
|000008f0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000900| 20 20 20 20 20 49 46 20 | 64 69 61 6c 6f 67 50 74 |     IF |dialogPt|
|00000910| 72 28 64 61 74 61 5b 32 | 5d 29 20 3c 3e 20 4e 49 |r(data[2|]) <> NI|
|00000920| 4c 20 54 48 45 4e 0d 20 | 20 20 20 20 20 20 20 20 |L THEN. |        |
|00000930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 42 45 47 |        |     BEG|
|00000940| 49 4e 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |IN.     |        |
|00000950| 20 20 20 20 20 20 20 20 | 20 67 65 74 50 6f 72 74 |        | getPort|
|00000960| 28 74 68 65 4f 6c 64 50 | 6f 72 74 29 3b 0d 20 20 |(theOldP|ort);.  |
|00000970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000980| 20 20 20 20 73 65 74 50 | 6f 72 74 28 64 69 61 6c |    setP|ort(dial|
|00000990| 6f 67 50 74 72 28 64 61 | 74 61 5b 32 5d 29 29 3b |ogPtr(da|ta[2]));|
|000009a0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000009b0| 20 20 20 20 20 20 20 7b | 77 69 6e 64 6f 77 20 6e |       {|window n|
|000009c0| 61 6d 65 7d 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ame}.   |        |
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 20 73 65 74 57 54 |        |   setWT|
|000009e0| 69 74 6c 65 28 64 69 61 | 6c 6f 67 50 74 72 28 64 |itle(dia|logPtr(d|
|000009f0| 61 74 61 5b 32 5d 29 2c | 20 74 65 78 74 28 31 2c |ata[2]),| text(1,|
|00000a00| 20 70 6c 69 73 74 29 29 | 3b 0d 20 20 20 20 20 20 | plist))|;.      |
|00000a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a20| 7b 70 72 6f 6d 70 74 7d | 0d 20 20 20 20 20 20 20 |{prompt}|.       |
|00000a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 67 |        |       g|
|00000a40| 65 74 44 49 74 65 6d 28 | 64 69 61 6c 6f 67 50 74 |etDItem(|dialogPt|
|00000a50| 72 28 64 61 74 61 5b 32 | 5d 29 2c 20 33 2c 20 6a |r(data[2|]), 3, j|
|00000a60| 2c 20 74 68 65 48 61 6e | 64 6c 65 2c 20 74 68 65 |, theHan|dle, the|
|00000a70| 52 65 63 74 29 3b 0d 20 | 20 20 20 20 20 20 20 20 |Rect);. |        |
|00000a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 73 65 74 |        |     set|
|00000a90| 49 54 65 78 74 28 74 68 | 65 48 61 6e 64 6c 65 2c |IText(th|eHandle,|
|00000aa0| 20 74 65 78 74 4f 66 41 | 74 6f 6d 69 63 4c 69 73 | textOfA|tomicLis|
|00000ab0| 74 28 32 2c 20 70 6c 69 | 73 74 29 29 3b 0d 20 20 |t(2, pli|st));.  |
|00000ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ad0| 20 20 20 20 7b 64 65 66 | 61 75 6c 74 20 62 75 74 |    {def|ault but|
|00000ae0| 74 6f 6e 7d 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ton}.   |        |
|00000af0| 20 20 20 20 20 20 20 20 | 20 20 20 67 65 74 44 49 |        |   getDI|
|00000b00| 74 65 6d 28 64 69 61 6c | 6f 67 50 74 72 28 64 61 |tem(dial|ogPtr(da|
|00000b10| 74 61 5b 32 5d 29 2c 20 | 31 2c 20 6a 2c 20 74 68 |ta[2]), |1, j, th|
|00000b20| 65 48 61 6e 64 6c 65 2c | 20 74 68 65 52 65 63 74 |eHandle,| theRect|
|00000b30| 29 3b 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.     |        |
|00000b40| 20 20 20 20 20 20 20 20 | 20 49 46 20 74 65 78 74 |        | IF text|
|00000b50| 28 33 2c 20 70 6c 69 73 | 74 29 20 3d 20 27 27 20 |(3, plis|t) = '' |
|00000b60| 54 48 45 4e 0d 20 20 20 | 20 20 20 20 20 20 20 20 |THEN.   |        |
|00000b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 73 65 74 |        |     set|
|00000b80| 43 54 69 74 6c 65 28 63 | 6f 6e 74 72 6f 6c 48 61 |CTitle(c|ontrolHa|
|00000b90| 6e 64 6c 65 28 74 68 65 | 48 61 6e 64 6c 65 29 2c |ndle(the|Handle),|
|00000ba0| 20 27 4f 4b 27 29 0d 20 | 20 20 20 20 20 20 20 20 | 'OK'). |        |
|00000bb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4c 53 |        |     ELS|
|00000bc0| 45 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |E.      |        |
|00000bd0| 20 20 20 20 20 20 20 20 | 20 20 73 65 74 43 54 69 |        |  setCTi|
|00000be0| 74 6c 65 28 63 6f 6e 74 | 72 6f 6c 48 61 6e 64 6c |tle(cont|rolHandl|
|00000bf0| 65 28 74 68 65 48 61 6e | 64 6c 65 29 2c 20 74 65 |e(theHan|dle), te|
|00000c00| 78 74 28 33 2c 20 70 6c | 69 73 74 29 29 3b 0d 20 |xt(3, pl|ist));. |
|00000c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c20| 20 20 20 20 20 7b 63 61 | 6e 63 65 6c 20 62 75 74 |     {ca|ncel but|
|00000c30| 74 6f 6e 7d 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ton}.   |        |
|00000c40| 20 20 20 20 20 20 20 20 | 20 20 20 67 65 74 44 49 |        |   getDI|
|00000c50| 74 65 6d 28 64 69 61 6c | 6f 67 50 74 72 28 64 61 |tem(dial|ogPtr(da|
|00000c60| 74 61 5b 32 5d 29 2c 20 | 32 2c 20 6a 2c 20 74 68 |ta[2]), |2, j, th|
|00000c70| 65 48 61 6e 64 6c 65 2c | 20 74 68 65 52 65 63 74 |eHandle,| theRect|
|00000c80| 29 3b 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |);.     |        |
|00000c90| 20 20 20 20 20 20 20 20 | 20 49 46 20 74 65 78 74 |        | IF text|
|00000ca0| 28 34 2c 20 70 6c 69 73 | 74 29 20 3d 20 27 27 20 |(4, plis|t) = '' |
|00000cb0| 54 48 45 4e 0d 20 20 20 | 20 20 20 20 20 20 20 20 |THEN.   |        |
|00000cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 68 69 64 |        |     hid|
|00000cd0| 65 43 6f 6e 74 72 6f 6c | 28 63 6f 6e 74 72 6f 6c |eControl|(control|
|00000ce0| 48 61 6e 64 6c 65 28 74 | 68 65 48 61 6e 64 6c 65 |Handle(t|heHandle|
|00000cf0| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)).     |        |
|00000d00| 20 20 20 20 20 20 20 20 | 20 45 4c 53 45 0d 20 20 |        | ELSE.  |
|00000d10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d20| 20 20 20 20 20 20 42 45 | 47 49 4e 0d 20 20 20 20 |      BE|GIN.    |
|00000d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d40| 20 20 20 20 73 65 74 43 | 54 69 74 6c 65 28 63 6f |    setC|Title(co|
|00000d50| 6e 74 72 6f 6c 48 61 6e | 64 6c 65 28 74 68 65 48 |ntrolHan|dle(theH|
|00000d60| 61 6e 64 6c 65 29 2c 20 | 74 65 78 74 28 34 2c 20 |andle), |text(4, |
|00000d70| 70 6c 69 73 74 29 29 3b | 0d 20 20 20 20 20 20 20 |plist));|.       |
|00000d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d90| 20 73 68 6f 77 43 6f 6e | 74 72 6f 6c 28 63 6f 6e | showCon|trol(con|
|00000da0| 74 72 6f 6c 48 61 6e 64 | 6c 65 28 74 68 65 48 61 |trolHand|le(theHa|
|00000db0| 6e 64 6c 65 29 29 3b 0d | 20 20 20 20 20 20 20 20 |ndle));.|        |
|00000dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000dd0| 45 4e 44 3b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |END;.   |        |
|00000de0| 20 20 20 20 20 20 20 20 | 20 20 20 7b 6d 75 6c 74 |        |   {mult|
|00000df0| 69 70 6c 65 20 63 68 6f | 69 63 65 73 7d 0d 20 20 |iple cho|ices}.  |
|00000e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000e10| 20 20 20 20 46 4f 52 20 | 69 20 3a 3d 20 35 20 54 |    FOR |i := 5 T|
|00000e20| 4f 20 39 20 44 4f 0d 20 | 20 20 20 20 20 20 20 20 |O 9 DO. |        |
|00000e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 42 |        |       B|
|00000e40| 45 47 49 4e 0d 20 20 20 | 20 20 20 20 20 20 20 20 |EGIN.   |        |
|00000e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 49 46 20 |        |     IF |
|00000e60| 74 65 78 74 28 69 20 2a | 20 32 20 2d 20 34 2c 20 |text(i *| 2 - 4, |
|00000e70| 70 6c 69 73 74 29 20 3d | 20 27 5b 5d 27 20 54 48 |plist) =| '[]' TH|
|00000e80| 45 4e 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |EN.     |        |
|00000e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 42 45 47 |        |     BEG|
|00000ea0| 49 4e 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |IN.     |        |
|00000eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 68 69 64 |        |     hid|
|00000ec0| 65 44 49 74 65 6d 28 64 | 69 61 6c 6f 67 50 74 72 |eDItem(d|ialogPtr|
|00000ed0| 28 64 61 74 61 5b 32 5d | 29 2c 69 29 3b 0d 20 20 |(data[2]|),i);.  |
|00000ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ef0| 20 20 20 20 20 20 20 20 | 68 69 64 65 44 49 74 65 |        |hideDIte|
|00000f00| 6d 28 64 69 61 6c 6f 67 | 50 74 72 28 64 61 74 61 |m(dialog|Ptr(data|
|00000f10| 5b 32 5d 29 2c 69 2b 35 | 29 3b 0d 20 20 20 20 20 |[2]),i+5|);.     |
|00000f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f30| 20 20 20 20 20 45 4e 44 | 0d 20 20 20 20 20 20 20 |     END|.       |
|00000f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f50| 20 45 4c 53 45 0d 09 09 | 09 09 09 09 09 09 09 09 | ELSE...|........|
|00000f60| 09 09 62 65 67 69 6e 0d | 09 09 09 09 09 09 09 09 |..begin.|........|
|00000f70| 09 09 09 09 09 67 65 74 | 44 49 74 65 6d 28 64 69 |.....get|DItem(di|
|00000f80| 61 6c 6f 67 50 74 72 28 | 64 61 74 61 5b 32 5d 29 |alogPtr(|data[2])|
|00000f90| 2c 20 69 2c 20 6a 2c 20 | 74 68 65 48 61 6e 64 6c |, i, j, |theHandl|
|00000fa0| 65 2c 20 74 68 65 52 65 | 63 74 29 3b 0d 20 20 20 |e, theRe|ct);.   |
|00000fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fc0| 20 20 20 20 20 20 20 73 | 65 74 49 54 65 78 74 28 |       s|etIText(|
|00000fd0| 74 68 65 48 61 6e 64 6c | 65 2c 20 74 65 78 74 4f |theHandl|e, textO|
|00000fe0| 66 41 74 6f 6d 69 63 4c | 69 73 74 28 69 20 2a 20 |fAtomicL|ist(i * |
|00000ff0| 32 20 2d 20 34 2c 0d 20 | 20 20 20 20 20 20 20 20 |2 - 4,. |        |
|00001000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001010| 20 20 20 20 20 20 20 20 | 20 20 70 6c 69 73 74 29 |        |  plist)|
|00001020| 29 3b 0d 09 09 09 09 09 | 09 09 09 09 09 09 09 65 |);......|.......e|
|00001030| 6e 64 3b 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |nd;.    |        |
|00001040| 20 20 20 20 20 20 20 20 | 20 20 20 20 45 4e 44 3b |        |    END;|
|00001050| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001060| 20 20 20 20 20 20 20 73 | 68 6f 77 57 69 6e 64 6f |       s|howWindo|
|00001070| 77 28 64 69 61 6c 6f 67 | 50 74 72 28 64 61 74 61 |w(dialog|Ptr(data|
|00001080| 5b 32 5d 29 29 3b 0d 20 | 20 20 20 20 20 20 20 20 |[2]));. |        |
|00001090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6f 70 65 |        |     ope|
|000010a0| 6e 50 72 6f 6c 6f 67 44 | 69 61 6c 6f 67 46 69 6c |nPrologD|ialogFil|
|000010b0| 74 65 72 28 69 2c 70 6c | 69 73 74 29 3b 0d 20 20 |ter(i,pl|ist);.  |
|000010c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010d0| 20 20 20 20 7b 72 65 74 | 75 72 6e 20 74 65 78 74 |    {ret|urn text|
|000010e0| 20 6f 66 20 62 75 74 74 | 6f 6e 20 70 72 65 73 73 | of butt|on press|
|000010f0| 65 64 7d 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ed}.    |        |
|00001100| 20 20 20 20 20 20 20 20 | 20 20 67 65 74 44 49 74 |        |  getDIt|
|00001110| 65 6d 28 64 69 61 6c 6f | 67 50 74 72 28 64 61 74 |em(dialo|gPtr(dat|
|00001120| 61 5b 32 5d 29 2c 20 69 | 2c 20 6a 2c 20 74 68 65 |a[2]), i|, j, the|
|00001130| 48 61 6e 64 6c 65 2c 20 | 74 68 65 52 65 63 74 29 |Handle, |theRect)|
|00001140| 3b 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.      |        |
|00001150| 20 20 20 20 20 20 20 20 | 67 65 74 43 54 69 74 6c |        |getCTitl|
|00001160| 65 28 63 6f 6e 74 72 6f | 6c 48 61 6e 64 6c 65 28 |e(contro|lHandle(|
|00001170| 74 68 65 48 61 6e 64 6c | 65 29 2c 20 73 29 3b 0d |theHandl|e), s);.|
|00001180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001190| 20 20 20 20 20 20 73 75 | 63 63 65 73 73 66 75 6c |      su|ccessful|
|000011a0| 20 3a 3d 20 72 65 74 75 | 72 6e 41 74 6f 6d 28 35 | := retu|rnAtom(5|
|000011b0| 2c 20 73 2c 20 70 6c 69 | 73 74 29 3b 0d 20 20 20 |, s, pli|st);.   |
|000011c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000011d0| 20 20 20 46 4f 52 20 69 | 20 3a 3d 20 31 30 20 54 |   FOR i| := 10 T|
|000011e0| 4f 20 31 34 20 44 4f 0d | 20 20 20 20 20 20 20 20 |O 14 DO.|        |
|000011f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001200| 42 45 47 49 4e 0d 20 20 | 20 20 20 20 20 20 20 20 |BEGIN.  |        |
|00001210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 67 65 |        |      ge|
|00001220| 74 44 49 74 65 6d 28 64 | 69 61 6c 6f 67 50 74 72 |tDItem(d|ialogPtr|
|00001230| 28 64 61 74 61 5b 32 5d | 29 2c 20 69 2c 20 6a 2c |(data[2]|), i, j,|
|00001240| 20 74 68 65 48 61 6e 64 | 6c 65 2c 20 74 68 65 52 | theHand|le, theR|
|00001250| 65 63 74 29 3b 0d 20 20 | 20 20 20 20 20 20 20 20 |ect);.  |        |
|00001260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 67 65 |        |      ge|
|00001270| 74 49 54 65 78 74 28 74 | 68 65 48 61 6e 64 6c 65 |tIText(t|heHandle|
|00001280| 2c 20 73 29 3b 0d 20 20 | 20 20 20 20 20 20 20 20 |, s);.  |        |
|00001290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 73 75 |        |      su|
|000012a0| 63 63 65 73 73 66 75 6c | 20 3a 3d 20 73 75 63 63 |ccessful| := succ|
|000012b0| 65 73 73 66 75 6c 20 41 | 4e 44 20 72 65 74 75 72 |essful A|ND retur|
|000012c0| 6e 53 74 72 69 6e 67 28 | 69 20 2a 20 32 20 2d 20 |nString(|i * 2 - |
|000012d0| 31 33 2c 20 73 2c 0d 20 | 20 20 20 20 20 20 20 20 |13, s,. |        |
|000012e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000012f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 70 6c 69 |        |     pli|
|00001300| 73 74 29 3b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |st);.   |        |
|00001310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 |        |     END|
|00001320| 3b 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.      |        |
|00001330| 20 20 20 20 20 20 20 20 | 73 65 74 50 6f 72 74 28 |        |setPort(|
|00001340| 74 68 65 4f 6c 64 50 6f | 72 74 29 3b 0d 09 09 09 |theOldPo|rt);....|
|00001350| 09 09 09 09 09 09 09 09 | 64 69 73 70 6f 73 65 44 |........|disposeD|
|00001360| 69 61 6c 6f 67 28 64 69 | 61 6c 6f 67 50 74 72 28 |ialog(di|alogPtr(|
|00001370| 64 61 74 61 5b 32 5d 29 | 29 3b 0d 20 20 20 20 20 |data[2])|);.     |
|00001380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001390| 20 45 4e 44 3b 20 7b 69 | 66 20 64 69 61 6c 6f 67 | END; {i|f dialog|
|000013a0| 50 74 72 3c 3e 6e 69 6c | 7d 0d 20 20 20 20 20 20 |Ptr<>nil|}.      |
|000013b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 4e |        |      EN|
|000013c0| 44 3b 20 7b 77 69 74 68 | 7d 0d 20 20 20 20 20 20 |D; {with|}.      |
|000013d0| 20 20 20 20 20 20 20 20 | 20 20 4f 54 48 45 52 57 |        |  OTHERW|
|000013e0| 49 53 45 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ISE.    |        |
|000013f0| 20 20 20 20 20 20 73 69 | 67 6e 61 6c 45 72 72 6f |      si|gnalErro|
|00001400| 72 28 69 6d 70 6c 65 6d | 65 6e 74 61 74 69 6f 6e |r(implem|entation|
|00001410| 45 72 72 6f 72 2c 20 2d | 20 31 2c 20 30 2c 0d 20 |Error, -| 1, 0,. |
|00001420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 27 70 72 |        |     'pr|
|00001440| 65 64 69 63 61 74 65 20 | 69 6e 64 65 78 20 6f 75 |edicate |index ou|
|00001450| 74 20 6f 66 20 72 61 6e | 67 65 20 61 74 20 63 61 |t of ran|ge at ca|
|00001460| 6c 6c 50 72 65 64 69 63 | 61 74 65 27 2c 0d 20 20 |llPredic|ate',.  |
|00001470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001480| 20 20 20 20 20 20 20 20 | 20 20 20 20 70 6c 69 73 |        |    plis|
|00001490| 74 29 3b 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |t);.    |        |
|000014a0| 20 20 45 4e 44 3b 20 7b | 63 61 73 65 7d 0d 20 20 |  END; {|case}.  |
|000014b0| 20 20 20 20 20 20 20 20 | 20 20 63 6c 6f 73 65 70 |        |  closep|
|000014c0| 72 65 64 69 63 61 74 65 | 3a 0d 20 20 20 20 20 20 |redicate|:.      |
|000014d0| 20 20 20 20 20 20 20 20 | 42 45 47 49 4e 0d 20 20 |        |BEGIN.  |
|000014e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 43 41 53 45 |        |    CASE|
|000014f0| 20 69 64 20 4f 46 0d 20 | 20 20 20 20 20 20 20 20 | id OF. |        |
|00001500| 20 20 20 20 20 20 20 31 | 3a 20 3b 0d 20 20 20 20 |       1|: ;.    |
|00001510| 20 20 20 20 20 20 20 20 | 20 20 20 20 32 3a 20 3b |        |    2: ;|
|00001520| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001530| 20 4f 54 48 45 52 57 49 | 53 45 0d 20 20 20 20 20 | OTHERWI|SE.     |
|00001540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 73 69 67 |        |     sig|
|00001550| 6e 61 6c 45 72 72 6f 72 | 28 69 6d 70 6c 65 6d 65 |nalError|(impleme|
|00001560| 6e 74 61 74 69 6f 6e 45 | 72 72 6f 72 2c 20 2d 20 |ntationE|rror, - |
|00001570| 31 2c 20 30 2c 0d 20 20 | 20 20 20 20 20 20 20 20 |1, 0,.  |        |
|00001580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001590| 20 20 20 20 27 70 72 65 | 64 69 63 61 74 65 20 69 |    'pre|dicate i|
|000015a0| 6e 64 65 78 20 6f 75 74 | 20 6f 66 20 72 61 6e 67 |ndex out| of rang|
|000015b0| 65 20 61 74 20 63 6c 6f | 73 65 50 72 65 64 69 63 |e at clo|sePredic|
|000015c0| 61 74 65 27 2c 0d 20 20 | 20 20 20 20 20 20 20 20 |ate',.  |        |
|000015d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000015e0| 20 20 20 20 70 6c 69 73 | 74 29 3b 0d 20 20 20 20 |    plis|t);.    |
|000015f0| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 3b 0d 20 |        |  END;. |
|00001600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 |        |     END|
|00001610| 3b 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 4f 54 |;.      |      OT|
|00001620| 48 45 52 57 49 53 45 0d | 20 20 20 20 20 20 20 20 |HERWISE.|        |
|00001630| 20 20 20 20 20 20 73 69 | 67 6e 61 6c 45 72 72 6f |      si|gnalErro|
|00001640| 72 28 69 6d 70 6c 65 6d | 65 6e 74 61 74 69 6f 6e |r(implem|entation|
|00001650| 45 72 72 6f 72 2c 20 2d | 20 31 2c 20 30 2c 0d 20 |Error, -| 1, 0,. |
|00001660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001670| 20 20 20 27 75 6e 6b 6e | 6f 77 6e 20 63 61 6c 6c |   'unkn|own call|
|00001680| 20 74 6f 20 4f 70 65 6e | 50 72 6f 6c 6f 67 44 69 | to Open|PrologDi|
|00001690| 61 6c 6f 67 73 20 65 78 | 74 65 72 6e 61 6c 20 70 |alogs ex|ternal p|
|000016a0| 72 65 64 69 63 61 74 65 | 20 73 75 69 74 65 27 0d |redicate| suite'.|
|000016b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000016c0| 20 20 20 20 20 20 20 20 | 20 20 2c 20 70 6c 69 73 |        |  , plis|
|000016d0| 74 29 3b 0d 20 20 20 20 | 20 20 20 20 20 20 45 4e |t);.    |      EN|
|000016e0| 44 3b 0d 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 |D;.     |     END|
|000016f0| 3b 0d 20 20 20 20 20 20 | 45 4e 44 3b 0d 45 4e 44 |;.      |END;.END|
|00001700| 2e 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001780| 00 00 01 00 00 00 01 30 | 00 00 00 30 00 00 00 32 |.......0|...0...2|
|00001790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 73 75 |        |      su|
|000017a0| 63 63 65 73 73 66 75 6c | 20 3a 3d 20 73 75 63 63 |ccessful| := succ|
|000017b0| 1a 4f 70 65 6e 50 72 6f | 6c 6f 67 4d 75 6c 74 69 |.OpenPro|logMulti|
|000017c0| 70 6c 65 43 68 6f 69 63 | 65 2e 70 6f 02 00 00 00 |pleChoic|e.po....|
|000017d0| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|000017e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017f0| 00 00 a9 c7 3a 33 00 00 | 00 00 00 00 01 62 6c 69 |....:3..|.....bli|
|00001800| 73 74 29 3b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |st);.   |        |
|00001810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 |        |     END|
|00001820| 3b 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;.      |        |
|00001830| 20 20 20 20 20 20 20 20 | 73 65 74 50 6f 72 74 28 |        |setPort(|
|00001840| 74 68 65 4f 6c 64 50 6f | 72 74 29 3b 0d 09 09 09 |theOldPo|rt);....|
|00001850| 09 09 09 09 09 09 09 09 | 64 69 73 70 6f 73 65 44 |........|disposeD|
|00001860| 69 61 6c 6f 67 28 64 69 | 61 6c 6f 67 50 74 72 28 |ialog(di|alogPtr(|
|00001870| 64 61 74 61 5b 32 5d 29 | 29 3b 0d 20 20 20 20 20 |data[2])|);.     |
|00001880| 00 00 00 2c 01 02 80 08 | 00 00 05 31 2e 30 2e 32 |...,....|...1.0.2|
|00001890| 1f 44 6f 63 75 6d 65 6e | 74 73 20 66 6f 72 20 4f |.Documen|ts for O|
|000018a0| 70 65 6e 20 50 72 6f 6c | 6f 67 20 31 2e 30 2e 32 |pen Prol|og 1.0.2|
|000018b0| 00 00 01 00 00 00 01 30 | 00 00 00 30 00 00 00 32 |.......0|...0...2|
|000018c0| 00 46 73 f8 19 b6 00 00 | 00 1c 00 32 00 00 76 65 |.Fs.....|...2..ve|
|000018d0| 72 73 00 00 00 0a 00 01 | ff ff 00 00 00 00 00 46 |rs......|.......F|
|000018e0| 73 8c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s.......|........|
|000018f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+